;; returns a scale type based on a chord type (basic jazz modal theory)
(define pc:chord->scale
(lambda (root type)
(pc:scale (modulo (+ (cadr (assoc type *pc:chord->scale*)) root) 12)
(cddr (assoc type *pc:chord->scale*)))))